CD Fun House 1/CD Fun House (Wayzata Technology).iso/•AdventureLand•/Adventures/HyperQuest 1.03 •••/HyperQuest 1.03 еее/card_23588.txt

Text File | 1990-10-02 | 6KB | 252 lines

-- card: 23588 from stack: in.03 –µ–µ–µ
-- bmap block id: 3864
-- flags: 0000
-- background id: 2766
-- name:
----- HyperTalk script -----
on openCard
  send cardOpened to background
end openCard

on move
  global direction,trollDead,chase,blasting,causeOfDeath
  if direction = "east" or direction = "up" or direction = "rear" then
    go card id 3186
    exit move
  end if
  if direction = "west" or direction = "down" then
    put "troll1" into causeOfDeath
    go to card id 3409
    exit move
  end if
  pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
end closeCard

on take
  global object,carried
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried
  -- remember to update carried if you do not pass take
  pass drop
end drop

on use
  global object,carried,oldRoom,newRoom,useFlag,trollDead,cardID
  put false into useFlag
  put last word of object into obj
  delete first char of obj
  delete last char of obj
  if obj="knife" then
    put "Slash!  Hack!  Slice!" into field 3
    put true into trollDead
    put "23588" into oldRoom
    put "24153" into newRoom
    send roomChange to background
    put 24153 into cardID
    go to card id 24153
    show card button id 18 of card id 7465
    put "You slay the troll with your knife. What a mess." into field 3
    exit use
  end if
  -- update carried if use results in loss of object
  pass use
end use





-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=5 top=225 right=261 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=40 top=226 right=262 bottom=74
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=108 top=226 right=262 bottom=142
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=176 top=226 right=262 bottom=210
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=74 top=226 right=262 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=142 top=226 right=262 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=51 top=60 right=219 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID,causeOfDeath
  if takeFlag then
    put false into takeFlag
    put "troll2" into causeOfDeath
    go to card id 3409
  else
    put "A mean, ugly, Troll." into field 3
    put false into examFlag
  end if
end mouseUp



-- part contents for background part 25
----- text -----
Long Stairway
(looking west)

-- part contents for background part 24
----- text -----
You are on a stone stairway leading downward to the west and upward to the east.  A cool, dank breeze is whistling up the stairs.
A large, ugly troll blocks your path, flexing his razor sharp claws.  The troll snarls, "Go back, or I shall kill you, puny human!"

-- part contents for background part 36
----- text -----
1